Top 10k strings from Bridge Player 2 (1984)(CP Software)[b].tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
3 x+fo,y+tw;e$
3 w=x+(j$(o,y)>j$(ol)
3 j$(op,x)=e$(x))
3 j$(op,tw)>"
3 j$(op)>j$(ol)
3 cd=tw*(t>on
3 a$(on)=("3"
3 (j$(o,x)=e$(x)
2 y$(fo,fo):
2 y$(a,tw)="5"
2 y$(a)="100"+
2 x+tw,y+tw;e$;
2 w=y+(j$(o,3
2 v$(x,y)>j$(ol,u)
2 t>fo;f$(tw);
2 nt+d(k)<23
2 j$(q,tw)>"
2 j$(or)<e$(y)
2 j$(o,y)>j$(ol,y)
2 j$(o,y)>a$(y))+(j$(o,3
2 j$(o,y)>a$(y)
2 j$(o,x)=e$(x)
2 j$(o,w)>a$(y)
2 j$(o)>j$(ol)
2 j$(m,a(m)):
2 j$(l)=j$(l,
2 h$(tw-a)<"1"
2 a(op-n+t))
2 a(l)=a(l)-on:
2 a$(y)>e$(fo)
2 a$(x)=s$(t)
2 a$(tw)=r$(t)
2 a$(tw)=" "
2 a$(on)=("P"
2 a$(on)=("6"
2 a$(on)="R"
2 a$(on)="N"
2 a$(on)="K"
2 4 9875
2 4 2
2 ,ze;l$;l$;
2 ,y+on;e$;" ";e$;
2 ,y+on;e$;" ";e$:
2 +x,(y(k,x)+6
2 )>j$(ol,y)
2 (k-tw*(k>tw)):
1 zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzxxxzzzzxxxzzzzzzzxxzzzzzzzzzzzzzxzxzzzxzzxzzzzzzxxxxzzzzzzzzzzzzxzzzzzxzzxzzzzzzxxxzzzzzzzzzzzzzxzzzzzxzzxzzzzzzxzzzzzzzzzzzzzzzxzzzzzzxxxzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzxxzzzxxxxzzzzzzzzzzzzzzzzzzzzzzxxxxzzxxxxzzzzxxzzzzzzzzxxzzzzzzzzzxzzxxxzzzzxxxxzzzzzzxxxxzzzzzzxxzzzxzzzzzzxxxxzzzzzzxxxzzzzzzxzzzzzxzzzzzzxxxxzzzzzzxzzzzzzzzxxxxzzxzzzzzzzxxxzzzzzzzxxxzzzzzxxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
1 ze;" zagrania ";(b$(k,
1 ze;" ";(b$(k,
1 ze;" Poczekaj az komputer oszacuje i przeanalizuje rozdanie. ":
1 ze;" Ty jestes
1 ze,tw,st,fo,on,n,h,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:
1 ze,f,f,f,f,f,f,f,p$
1 ze)+("Wygrali: E/W"
1 z>fo)+("4"
1 z=fo*y-fo+x:
1 z=a(op-n+t):
1 z(z);z$(z):
1 z(fo*j-fo+k)=f(v):
1 z$(fo*j-fo+k)=a$:
1 y>fo))*x+10
1 y=y(k,on):
1 y=x-(x>on):
1 y=k+x-v+fo*(v
1 y,z;(e$(on)
1 y)=j$(ol,x)+j$(op,x)
1 y)+j$(op,x)
1 y(n)=y(n)-30
1 y(n)=y(n)+fo*e+8
1 y(n)=y(n)+(f+10
1 y(n)=y(n)+(40
1 y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:
1 y(k,t)=y(k,t)-z+1.4
1 y$(x)="0003":
1 y$(u)="0003":
1 y$(t-(t>fo),fo))=
1 y$(t-(t>fo),fo)
1 y$(t-(t>fo),
1 xy=((x-y)/5
1 x-on,v;j$(m,z);
1 x-on)+g$(x+on
1 x+tw,y+on;e$;" ";e$;
1 x+on,y+on;e$;" ";e$;
1 x+fo,y+on;e$;" ";e$:
1 w=x+(j$(o,y)>a$(y)):
1 w=e(on)*e(tw)*e(3
1 w-on)+j$(l,w+on
1 w$="AAAAAAAAAA":
1 v-on)+c$(b(w),v+on
1 v$(x,y)>j$(ol)
1 v$(w,tw)=c$(b(w),v)
1 v$(fo,tw):
1 u=e(w+on):
1 tw;"az komputer potasuje karty."''
1 tw;"Rozdal":
1 tw;"ROBER KOMPLETNY";
1 tw;"GRATULUJE!";
1 tw;"Chciales sie dostac do programu.",," Jest to zabronione!";,,,
1 tw*(e$(tw)="
1 tw)=j$(o,on)+j$(op,on))
1 t>fo;a$(tw):
1 t>fo)+e(b):
1 t>fo)+e(a):
1 t))+(j>12.6
1 st,ze;"LICZ.LEW";
1 rd=(e$="2"):
1 p>tw)+s$(p):
1 p=(tv*r+10
1 p4=(e$="A"):
1 p4=(e$="4"):
1 p$=("Na part."
1 op=fo*k-fo+w-(w>fo):
1 on;ze,on-aa
1 on;,," B - restart lub odtworz. licyt. N - nastepne rozdanie kart. E - wszystkie lewy ktore zeszly O - lista mozliwych opcji. P - podejrzenie kart lub wydruk",,;
1 on;"Wcisnij ENTER";
1 on;"W, S, lub V?"
1 on;"UNIEWAZNIENIE ";
1 on;"Rozdanie ";h;
1 on;"Rozdal:";o$(d)'
1 on;"Rozd.";h;
1 on;"P - drukarka, R - powtorzenie, N - nastepne rozdanie "
1 on;"Dla kontynuacji wcisnij C":
1 on;"C lub D"
1 on;"A lub B";
1 on;"1, 2 lub 3";
1 on;" Ponowna licytacja":
1 on;" Nacisnij jakikolwiek klawisz! ";
1 on;" 4 - gra wszystkimi kartami.";
1 on;" W ROZGRYWCE: | W LICYTACJI: ";
1 o()=o+fo-st*(o>12
1 n<fo);s$(n);
1 m$>on)+(600
1 m$>"F")+(100
1 m$="J")+(200
1 m$="F")+(400
1 m$="E")+(300
1 l=g(on)+g(3
1 l<ze),,,,;
1 l;" punktami":
1 l(x),tw)="
1 l(x),on)="
1 l(t)-(t>fo):
1 k=k+i-fo*(k+i>fo):
1 k1=k1+on-fo*(k1>tw)
1 k(k),t)=y(
1 k(k),t)-z:
1 k$(v,tw)="
1 k$(b-tw,on)="K")
1 k$(b-tw,on)="D"
1 k$(b-tw)>"D"
1 k$(b)="Pass":
1 k$(b)="P":
1 j(k),t)=y(
1 j(k),t)<fo
1 j(k),t)+z+(w$(t+5
1 j$(v)=j$(v+st):
1 j$(q,on)="
1 j$(or,y)>e$(fo))))
1 j$(or,x)>e$(fo)
1 j$(op,y)>e$(fo)
1 j$(op,y)>e$(5
1 j$(op,x)>e$(3
1 j$(op,tw)<"
1 j$(op,on)=e$(3
1 j$(op)>v$(x,y)
1 j$(op)>j$(o)))
1 j$(op)>j$(o)
1 j$(op)>a$(y)
1 j$(op)<j$(ol)))
1 j$(op)<j$(ol))
1 j$(op)<e$(y)
1 j$(op)<e$(on))
1 j$(op)<a$(y))
1 j$(op)<a$(y)
1 j$(ol,y)=e$(5
1 j$(ol,u)=" "
1 j$(ol)<e$(y)
1 j$(o,y)>j$(or)):
1 j$(o,y)>j$(ol)
1 j$(o,y)<e$(3
1 j$(o,x)>j$(or,y))
1 j$(o,x)=e$(y)
1 j$(o,x)<e$(y)
1 j$(o,w)>v$(x,y)
1 j$(o,w)>j$(ol,u)
1 j$(o,on)>e$(ao-(ao>on
1 j$(o+st)=j$(o):
1 j$(o+st)=e$:
1 j$(o)>j$(or)
1 j$(o)=d$(u):
1 j$(o)<e$(or+(j$(op)>j$(o)))
1 j$(o)<e$(6
1 j$(o)<e$(3
1 j$(m,y)>d$(n,fo)
1 j$(m,w)>v$(v-x,y)
1 j$(m,w)>j$(ol-n+t,on)
1 j$(m,w)<c$(t,x)
1 j$(l,w)=a$(tw)
1 j$(l+st)=j$(l):
1 j$(k,tw)="
1 j$(k,on)="
1 j$(c,y)=e$(x)
1 i+on);o$(p+w-fo*(p+w>fo));
1 i$="A")+(s$(n)
1 h$(tw-a,on)*5
1 h$(tw-a,fo)
1 h$(tw,fo):
1 h$(tw)=h$(on):
1 h$(on)="0000":
1 h$(a+on,fo)
1 h$(a+on)>"3"
1 h$(a+on)<"1"
1 gr. N5gr.E 4gr. S5gr.W 4
1 gg>on)+("Na robr:"
1 gg)+("Na robr:"
1 g(w+x);g(w+x)
1 g(fo+tw*gg))
1 g(fo+tw*gg)
1 g(c)=g(c)+p:
1 g(b)=g(b)+q
1 g(a)=g(a)+o:
1 g$=("1342"
1 g$="1234":
1 g$(w+on)=e$
1 g$(w)=g$(w+on):
1 fo;"Rozd.nr";h'
1 fo,ze;"Kontrakt"'r;
1 ffff)+(a$(tw)
1 f=tw)+y*100
1 f,g,i,j,l,aa,k1,rp,n$:
1 f(x);v$(x,on):
1 f(w);v$(w):
1 f(v)=tw*(u>on
1 f(v);a$(on):
1 f(on);"Do ";(s$(n));
1 f$=f$+"x":
1 f$=a$(on)+u$(t)+("x"
1 f$(tw)=u$(t)
1 e=f+on+d(k)+(fo
1 e=e-d(k)+j
1 e=d(k)+(13
1 e(w+on)=u:
1 e(w)=e(w+on):
1 e(w)<e(w+on)
1 e$="W")+(15
1 e$="-----":
1 e$(y-on)=g$
1 e$(y-on)=e$(y)
1 e$(y)>e$(y-on)
1 e$(y)=e$(y-on):
1 e$(x)=t$(y):
1 e$(x)=q$(y)
1 e$(tw)>"3"
1 e$(tw)<"5"
1 e$(on)="P");
1 e$(fo)=e$(on))
1 e$(a)=g$(x)
1 de=fo)+(30
1 d=(a(ol)>ze)+(a(or)>ze):
1 d(k)=d(k)+c(k):
1 d(k)=d(k)+3
1 d$(x)=y$(x):
1 c=a+tw+tw*gg:
1 c4=(e$="4"):
1 c4=(e$="1"):
1 c,d;v$(x,tw);
1 c,d;a$(tw);
1 c+x,b;s$(x);:
1 c(k)=c(k)+
1 c$(t,y)=" ")
1 c$(b(w))=c$(b(w),
1 bi=(e$="C"):
1 b(x)=b(x)-a(
1 a=de-tw*(de>tw):
1 a=(j-g+r>7
1 a(v)=a(v+st):
1 a(or-n+t-(t>fo))
1 a(or-n+t))):
1 a(or)+a(ol)>x
1 a(op)>tw)))+"2
1 a(op)>a(or)
1 a(op)>a(ol))
1 a(op)<a(o)
1 a(op)+a(or)
1 a(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))
1 a(ol-n+t-(t>fo)))
1 a(ol-n+t)))+(60
1 a(ol)+a(or)
1 a(ol)+(v=fo))
1 a(ol))+(50
1 a(o+st)=a(o):
1 a(o)=b(u):
1 a(o)=(a(op)>x)
1 a(l+st)=a(l):
1 a$=r$(t)+j$(m,w):
1 a$=r$(n)+j$(o,w):
1 a$=("4"+s$(t)
1 a$="RKNT":
1 a$="Pass":
1 a$="KNTR":
1 a$="6"+s$(fo-k1):
1 a$="5"+s$(fo-(j-
1 a$="3"+s$(p):
1 a$="2"+s$(t):
1 a$="2"+s$(p):
1 a$="1"+s$(p):
1 a$="1"+s$(n):
1 a$(y)>j$(o)
1 a$(y)>e$(6
1 a$(y)=e$(fo)
1 a$(y)<e$(5
1 a$(x)=f$(y)
1 a$(tw)>"1"
1 a$(tw)=u$(z):
1 a$(tw)=u$(y)
1 a$(tw)=u$(t)
1 a$(tw)=t$(w):
1 a$(tw)=t$(w)
1 a$(tw)=s$(t):
1 a$(tw)=q$(w)
1 a$(tw)=j$(l,a(l)):
1 a$(tw)=f$(tw)
1 a$(tw)=a$:
1 a$(tw)=(s$(z)
1 a$(tw)=((s$(p)
1 a$(tw)="P")+
1 a$(tw)+200
1 a$(on)=s$(u):
1 a$(on)=s$(u)
1 a$(on)=s$(n):
1 a$(on)=r$(u)
1 a$(on)=q$(x)
1 a$(on)=("4"
1 a$(on)=("1"
1 a$(on)="P"
1 a$(on)="O"
1 a$(on)="B"
1 a$(on)-on:
1 a$(on)+k$(b-on,on)+k$(b-tw,on)
1 a$(fo)="X"):
1 P P P P 1
1 Na robr: N/S 90N
1 Na robr: N/S 90
1 Ffff)+("6"
1 Cztery razy pass
1 Bridge2VPL,
1 Bridge2 )
1 Bridge2
1 BPc
1 BP$
1 AAAA3AAAAA
1 @```````BBC ' P
1 @@@@@@@@F(
1 ;k$(v,on);"N"
1 ;j$(m,a(m)):
1 ;j$(l,w);" ";:
1 ;("Wygrali: N/S"
1 ;"lic.";o$(de);
1 ;"korekta za honory"
1 ;"Wydano ";a(o);" kart w jednym kolorze. Wydaj powtornie! ":
1 ;"WYLICYTOWANE I ZROBIONE"
1 ;"V - brak longera?",,,
1 ;"Uxbridge"'
1 ;"SA - as pik","| 1S - 1 pik","SK - krol pik","| 1H - 1 kier","SQ - dama pik","| 1D - 1 karo","SJ - walet pik","| 1C - 1 trefl","ST - 10 pik","| K - kontra","S9 - 9 pik","| R - rekontra";"S - blotka pik","| 1NT - 1 b. atu";
1 ;"S - 15-17 pkt?",,,
1 ;"Rozdanie nr ";h;".":
1 ;"Prosze czekac!":
1 ;"Podaj prawidlowo! ";
1 ;"Poczekaj do momentu"''
1 ;"Mozesz wybrac:"''" R - powtorka ostat. rozdania"''" N - nastepne rozdanie"''" O - lista opcji"
1 ;"Middx UB8 2RD"
1 ;"Masz do wyboru:",,,," A - karty rozdaje komputer",,," B - karty rozdajesz Ty",,,,,,,,,;
1 ;"Licytacja";
1 ;"Jeszcze raz:",:
1 ;"CP Software";
1 ;"B - powtorzenie licytacji",:
1 ;"4 - widzisz wszystkie karty":
1 ;"2, Glebe Road";
1 ;"2 - grasz tylko za N/S",:
1 ;"1 lub 2";
1 ;"---------"'':
1 ;"+ ";y;" nadrobki"
1 ;"" :
1 ;" Wersja polska: Pawel Gabrysiak ",," Zapisz lub zapamietaj!";,,,
1 ;" W - 12-14 pkt?",,,
1 ;" F.A.Vachha"''
1 ;" ";j$(o,x);:
1 ;" ":
1 98765432","
1 52425422132471125555213421414423443212438735235332214381
1 432123456789
1 3333*(w$(t+5
1 0003000300030003
1 -st*(o>fo)
1 -a(ol)-a(or))*(10
1 -(t>fo);r;
1 ,ze;l$;l$:
1 ,ze;,,"Odzywka 1NT ma oznaczac:";,,
1 ,ze;"N/S E/W";
1 ,ze;"A - grasz wszystkimi kartami",,,"B - za przeciwnikow gra komputer",,,,
1 ,ze;"1 - widzisz wszystkie karty?",,,"2 - widzisz tylko linie N/S?",,,,,,
1 ,ze;"1 - Linia N/S (to Wy) ma zawsze wiecej punktow od E/W",,,"2 - Linia N/S ma wiecej punktow od E/W (ale nie zawsze)",,,"3 - Rozdanie zawsze jest losowe",,,
1 ,ze;"********";
1 ,ze;" Wydales ";b$(k,
1 ,ze;" P - powtorzenie rozgrywki ";
1 ,ze;" ";g;
1 ,ze,,,," C - licytujesz i rozgrywasz?",,," D - tylko rozgrywasz?",,,,,,,,,,,
1 ,tw;"2 - widzisz tylko karty N/S"''
1 ,on;"N/S E/W":
1 ,h,h,"NESW","Na part.",p$,"AKQJT","SHDCN","
1 +tw*gg))+(" E/W "+
1 +fo*(t>fo)):
1 +a+tw*gg):
1 *os-x/tw,124
1 *(y>fo)>96
1 *(u=t))*(u=t
1 *(t>fo)+g(3
1 *(t>fo))*(f-(f<fo)):
1 *(k=tw);"?"
1 *(k=tw)-10
1 *(f-tw)+(tv*y
1 *(f-tw)*(on+g(a+8
1 *(e$="1"):
1 *(de=tw)-5
1 *(de=tw)+5
1 *(de=on),13
1 *(de=fo);"
1 )>j$(or,y)
1 )>h$(tw-a,3
1 )=x+tw-fo*(x>tw):
1 )=x+on-fo*(x
1 )=j$(ol,x)+j$(op,x)
1 )=j$(o,x)+v$(x,y)+j$(op,x)
1 )=fo*k-fo+x:
1 )="X")+("x"
1 )-tw*(y=on):
1 )-tw*(k=on):
1 )-tw*(k=on),15
1 )-g(tw)-g(fo)-g(6
1 ));". Wydaj ";
1 ));" ";(p);" kart.";,
1 ))+("Na rob.:"
1 ))+("2134"
1 ))+(" N/S "+
1 ))+"1243":
1 )));" ? ";
1 (v$(x,y)>a$(y)
1 (r+(f$(tw)>a$(tw))+(d(k)>9
1 (on+(z=t)+(j>10.4
1 (on+(j>14.4
1 (k$(b-tw)>"E"
1 (j$(or,x)=e$(fo)
1 (j$(op,y)>j$(or)
1 (j$(op,tw)>"
1 (j$(op)<j$(or)
1 (j$(op)<j$(ol,y)
1 (j$(op)<e$(t)
1 (j$(op)<a$(y)
1 (j$(ol,y)=e$(fo)
1 (j$(ol)<e$(y)
1 (j$(ol)<e$(fo)
1 (j$(o,y)>a$(y)
1 (j$(o,x)=e$(x))
1 (j$(o,w)>a$(y)
1 (j$(o,on)=e$(on)
1 (j$(o)<j$(or)
1 (j$(m)<v$(3
1 (c+tw))/fo:
1 (a=(j-g+r>7
1 (a(o)+a(op)>y+a(or)+a(ol)
1 ((v$(x,y)>j$(ol,y)
1 ((a=(j-g+r
1 ''''" Procedura zabezpieczajaca:",,
1 "Twoj glos? ";
1 "Ta sama karta dwa razy. Jeszcze raz ";
1 "Rozgrywa ? ";"(tylko N lub S) "
1 "Maximum 8 kart w jednym kolorze.Powtorz: ";
1 "Karty ";(b$(k,
1 "Karta od ";(b$(k,
1 "Jaki kontrakt ";("(which need not be the same as before) "
1 ",e$,g$,e$,g$,e$,g$,"
1 ","gr. N5","gr.E 4","gr. S5","gr.W 4"
1 ")-tw*(e$="
1 ")+(e$(tw)
1 "#$%&'()*+,-.23456789:;<=>:
1 " Wygrane";
1 " Przegrane";
1 " ";j$(y+x,w);:
1 R.Wheen":
1 R.Wheen 1984
1 PassPassPassPass1
1 PassPassPass
1 dn. 14.04.86r. WYMIANA PROGRAMOW *KG* DO ZX Spectrum 48K WARSZAWA tel. 39 62 12 godz. 8 - 14 w dni roboczeU
1 O